home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Tele / N-O / NewAutoDL.cpt / AutoDL.TXT < prev    next >
Encoding:
Text File  |  1990-03-19  |  6.5 KB  |  270 lines  |  [TEXT/WORD]
  1. RESET
  2. UWCLOSE
  3. ERASE ALL
  4.  
  5. ( Chages this command to "COMM 1200-N-8-1-HALF" if 2400 buad is )
  6. ( not available in your area. )
  7. COMM 2400-N-8-1-HALF
  8.  
  9. DISPLAY 79
  10. VT102
  11. MBAR
  12. LF OFF
  13. SLOW OFF
  14. MODEM
  15. ECHO OFF
  16. PAUSE
  17.  
  18. ( Set this pathname for the text file that will be created to hold the )
  19. ( page numbers of the libraries to be downloaded from )
  20. USEROPENO 1,Hard Disk:Communications:Libraries
  21.  
  22. ( This series of commands is used to load the text that will be spoken )
  23. ( during the procedure asking you to enter library page numbers. If you )
  24. ( don't wish to take advantage of the Speak RCMD, just delete this series )
  25. ( of commands down to and including the NEST command. I know the spellings )
  26. ( are a little weird, but the resulting Macintalk seems to sound OK. )
  27. COPYINTO T$,Please enter the page numbers of the lie-braries  
  28. CONCAT T$,that file de-scriptions are to be downloaded from.  
  29. ERASE F$
  30. LET EQUAL P%,135
  31. LET EQUAL R%,0
  32. LET EQUAL M%,0
  33.  
  34. ( Set this pathname to the folder containing the Speak RCMD that was )
  35. ( included in your WK 11 diskette )
  36. NEST Hard Disk:Communications:RCMDs:Speak RCMD.PROC
  37.  
  38. :Firstloop
  39. ERASE A$
  40. ERASE X$
  41. ERASE Y$
  42. ERASE Z$
  43. COPYINTO X$,Mac RT 606, IBM RT 616, Freesoft RT 586, MACPRO RT 481.
  44. COPYINTO Y$,Enter page numbers one at a time with a return after each one.
  45. COPYINTO Z$,Leave the input field empty to proceed.......
  46. QUERY1 A$
  47. EMPTY A$
  48. IF YES JUMPTO Proceed
  49. USERWRITE 1,A$
  50. USERWRCR 1
  51. JUMPTO Firstloop
  52. :Proceed
  53. USERCLOSE 1
  54. PAUSE
  55.  
  56. ( Set this pathname for the text file that will be created to hold the )
  57. ( file numbers to be downloaded from the libraries you selected ) 
  58. USEROPENO 2,Hard Disk:Communications:Files
  59.  
  60. ( This series of commands is used to load the text that will be spoken )
  61. ( during the procedure asking you to enter file numbers. If you don't wish )
  62. ( to take advantage of the Speak RCMD, just delete this series of commands )
  63. ( down to and including the NEST command. )
  64. COPYINTO T$,Please enter the numbers of the files to be downloaded 
  65. CONCAT T$,from the lie-braries you selected.
  66. ERASE F$
  67. LET EQUAL P%,135
  68. LET EQUAL R%,0
  69. LET EQUAL M%,0
  70.  
  71. ( Set this pathname to the folder containing the Speak RCMD that was )
  72. ( included in your WK diskette )
  73. NEST Hard Disk:Communications:RCMDs:Speak RCMD.PROC
  74.  
  75. :Secondloop
  76. ERASE B$
  77. ERASE X$
  78. ERASE Y$
  79. ERASE Z$
  80. COPYINTO X$,Enter file numbers to be downloaded from only ONE libarary 
  81. COPYINTO Y$,each separated by a comma and then return. Enter only the word 
  82. COPYINTO Z$,NEXT to separate files from different libraries.
  83. QUERY1 B$
  84. EMPTY B$
  85. IF YES JUMPTO Proceed1
  86. USERWRITE 2,B$
  87. USERWRCR 2
  88. JUMPTO Secondloop
  89. :Proceed1
  90. USERCLOSE 2
  91.  
  92. ( see if the user wants to wait for a later time )
  93. ERASE C$
  94. ERASE X$
  95. ERASE Y$
  96. ERASE Z$
  97. COPYINTO X$,Enter time to download these files in 24 hour format
  98. COPYINTO Y$,like 23:30:00, or leave blank to download right now
  99. COPYINTO Z$,( Just hit OK, Return, or Enter to download right now.)
  100. QUERY1 C$
  101. EMPTY C$
  102. IF YES JUMPTO DIAL UP
  103.  
  104. ( we do the following if the user enters a time to do it )
  105. CONCAT C$, to log on to GEnie and download the files ...
  106. ERASE W$
  107. ERASE X$
  108. ERASE Y$
  109. ERASE Z$
  110. COPYINTO X$,Waiting until 
  111. COPYINTO Y$,C$
  112. COPYINTO Z$, 
  113. CUWOPEN1 0,0,55,260
  114. WAIT C$
  115. UWCLOSE
  116. :DIAL UP
  117. INITMODEM
  118.  
  119. ( Change this command to reflect your local GEnie telephone number )
  120. DIAL ATDT 123-4567
  121.  
  122. ALERT1 NO CARRIER/JUMPTO DIAL UP
  123. ALERT2 BUSY/JUMPTO DIAL UP
  124. PAUSE
  125. TYPE H
  126. PAUSE 30
  127. TYPE H
  128. PAUSE 30
  129. TYPE H
  130. PROMPT U#
  131. PAUSE 120
  132.  
  133. ( Change this command to reflect your own ID number and password )
  134. TYPE ABC12345,Password^M
  135.  
  136. PROMPT ?
  137. PAUSE
  138. SAVETIME
  139. RESET
  140.  
  141. ( Set the two paths below to the same paths you used above in the )
  142. ( USEROPENO commands )
  143. USEROPENI 1,Hard Disk:Communications:Libraries
  144. USEROPENI 2,Hard Disk:Communications:Files
  145.  
  146. :READLOOP1
  147. ERASE D$
  148. USERREAD 2,D$
  149. IF ERROR JUMPTO QUIT
  150. CONTAINS D$,NEXT
  151. IF YES JUMPTO READLOOP1
  152. :READLOOP2
  153. ERASE E$
  154. USERREAD 1,E$
  155.  
  156. ( This series of commands loads a particular settings file depending )
  157. ( on the GEnie library page number you select. This is necessary since )
  158. ( not all libraries download files using MacBinary II.  Be sure to expand )
  159. ( this set of commands for any other MAC libraries you use regularly )
  160. CONTAINS E$,606
  161. IF YES LOADSET Hard Disk:Communications:Procedures:MAC Settings
  162. IF YES JUMPTO TYPE LIBRARY
  163. CONTAINS E$,586
  164. IF YES LOADSET Hard Disk:Communications:Procedures:MAC Settings
  165. IF YES JUMPTO TYPE LIBRARY
  166. CONTAINS E$,481
  167. IF YES LOADSET Hard Disk:Communications:Procedures:MAC Settings
  168. IF YES JUMPTO TYPE LIBRARY
  169.  
  170. ( If none of the above pages was entered, this settings file is loaded )
  171. ( Be sure to modify the pathnames as appropriate. Don't be startled by )
  172. ( the name of the settings file below. It's really a text files setting)
  173. ( I use to download IBM files for by brother who doesn't have a local)
  174. ( GEnie telephone number. Big Blue strikes again!! )
  175. LOADSET Hard Disk:Communications:Procedures:IBM Settings
  176.  
  177. :TYPE LIBRARY
  178. PAUSE 120
  179. TYPE M
  180. TYPE E$
  181. TYPE ;6^M
  182. PROMPT <H>elp?
  183. PAUSE 120
  184.  
  185. ( See if the user wanted 1, or more then 1 files )
  186. CONTAINS D$,,
  187. IF NO JUMPTO ONE FILE
  188.  
  189. ( If more then one file, do this routine )
  190. TYPE D$
  191. TYPE ^M
  192. PROMPT )?
  193. PAUSE
  194. TYPE Z^M
  195. PROMPT Download another file (Y/N)?
  196. JUMPTO Changelibraries
  197.  
  198. ( This is executed if the user is only getting 1 file )
  199. :ONE FILE
  200. TYPE D$
  201. TYPE ^M
  202. ALERT1 this Library/JUMPTO Notinlibrary
  203. PROMPT ?
  204. PAUSE
  205. TYPE d^M
  206. PROMPT > to skip?
  207. PAUSE
  208. TYPE 4^M
  209. PROMPT Download another file (Y/N)?
  210. JUMPTO Changelibraries
  211.  
  212. :QUIT
  213. TYPE BYE^M
  214. PROMPT CARRIER
  215. PAUSE
  216.  
  217. :REAL END
  218. ELAPSED A%
  219. DIVIDE A%,60
  220. NUMTOSTRING A%,M$
  221. CONCAT M$, minutes to download these files from GEnie.
  222. ERASE W$
  223. ERASE X$
  224. ERASE Y$
  225. ERASE Z$
  226. COPYINTO W$,Report
  227. COPYINTO X$,All done! It took about 
  228. COPYINTO Y$,M$
  229. COPYINTO Z$, 
  230. CUWOPEN2 0,0,55,260
  231. BELL
  232.  
  233. ( This displays the Report until the CloseBox is clicked in )
  234. :LOOP
  235. IF CLOSEUW JUMPTO FINAL
  236. JUMPTO LOOP
  237. :FINAL
  238. UWCLOSE
  239. PAUSE 360
  240.  
  241. ( Change the two paths below to the same paths you used above so that any)
  242. ( text files created by this procedure will also be deleted by this )
  243. ( procedure when it is done )
  244. DELETE Hard Disk:Communications:Libraries
  245. PAUSE 360
  246. DELETE Hard Disk:Communications:Files
  247. PAUSE
  248. END
  249.  
  250. ( This series of commands changes page numbers after you have )
  251. ( downloaded all your selected files. )
  252. :Changelibraries
  253. PAUSE
  254. TYPE N^M
  255. PROMPT ?
  256. PAUSE
  257. JUMPTO READLOOP1
  258.  
  259. ( This series of commands is intended to keep the procedure from )
  260. ( hanging in the event you get a response from GEnie that states )
  261. ( that a file is not in the library.  That happens if you make a )
  262. ( mistake entering file numbers or if the file is deleted by the )
  263. ( owner or sysop. )
  264. :Notinlibrary
  265. PROMPT (Y/N)?
  266. PAUSE
  267. TYPE Y^M
  268. JUMPTO READLOOP1
  269.  
  270.